home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / 173amrg.zip / UPGRADE.BAT < prev   
DOS Batch File  |  1990-08-26  |  12KB  |  421 lines
  1. ECHO OFF
  2. CLS
  3. IF 173A == %1 GOTO LEVELOK
  4. ECHO ' Incorrect upgrade version -%1- specified.  Please read the following
  5. ECHO ' before trying again.
  6. :ERROR1
  7. ECHO '
  8. ECHO '  This batch file should be invoked with the command
  9. ECHO '
  10. ECHO '             UPGRADE 173A XXXXX (SEE NOTE)
  11. ECHO '
  12. ECHO '  "173A" is the parameter passed to this .BAT file that indicates
  13. ECHO '  this is for upgrading RBBS-PC version 17.3 to 17.3A
  14. ECHO '      And that you are using the .MRG files from RBBS-MRG.ZIP
  15. ECHO '  against the unmodified source code of RBBS-PC version 17.3
  16. ECHO '
  17. ECHO '  NOTE:  Replace the XXXXX with one of the following:
  18. ECHO '
  19. ECHO ' QB1.02  if using the QuickBasic version 1.02 compiler (recommended)
  20. ECHO ' QB2.01  if using the QuickBasic version 2.01 compiler (recommended)
  21. ECHO ' QB3.00  if using the QuickBasic version 3.00 compiler (recommended)
  22. ECHO ' QB4.5  if using the QuickBasic version 4.5 compiler (acceptable)
  23. ECHO ' IBM2.00 if using the unmodified IBM version 2.00 compiler (acceptable)
  24. ECHO '    NOT Recommended are: QB1.0, QB2.00, QB4.00
  25. ECHO '
  26. ECHO ' YOU MUST USE CAPITAL LETTERS FOR ALL PARAMETERS!
  27. ECHO '
  28. GOTO END
  29. :LEVELOK
  30. IF QB1.00 == %2 GOTO COMPILER
  31. IF QB1.02 == %2 GOTO COMPILER
  32. IF QB2.00 == %2 GOTO COMPILER
  33. IF QB2.01 == %2 GOTO COMPILER
  34. IF QB3.00 == %2 GOTO COMPILER
  35. IF QB4.5 == %2 GOTO COMPILER
  36. IF IBM2.00 == %2 GOTO COMPILER
  37. ECHO ' Incorrect compiler specified!  Read the above before trying again.
  38. GOTO ERROR1
  39. :COMPILER
  40. IF TURBO == %3 GOTO TURBO1
  41. IF COMPILE == %3 GOTO COMPILE1
  42. IF LINK == %3 GOTO TURBO5
  43. CLS
  44. ECHO '  This .BAT file is supplied to assist you in upgrading the un-modified
  45. ECHO '  17.3 source code to version 17.3A
  46. ECHO '  This .BAT file makes some fundamental assumptions about your
  47. ECHO '  configuration:
  48. ECHO '     1.  BLED version 2.1 or later is available.
  49. ECHO '     2.  2.0 MB of disk storage is available to contain all the
  50. ECHO '         files necessary to apply, compile and link the revised
  51. ECHO '         version of RBBS-PC that contains these temporary fixes.
  52. ECHO '     3.  Either the QuickBASIC (versions 1.02/2.01/3.00/4.5)
  53. ECHO '         or the unmodified IBM Version 2.0 BASIC compiler is available.
  54. ECHO '
  55. ECHO '  There is no "ASSUMED" compiler in this .BAT file.
  56. ECHO '  You have selected the use of the %2 compiler options.
  57. ECHO '
  58. ECHO '  If the above assumptions are incorrect, hit Ctrl-Break to
  59. ECHO '  terminate this batch job.  Otherwise .....
  60. pause
  61. CLS
  62. ECHO '
  63. ECHO '  The UPGRADE.BAT file requires access to:
  64. ECHO '                  BDRIVEC2.OBJ  XMODEM.OBJ   RBBS-PC.BAS   RBBSDV.OBJ
  65. ECHO '  BCOMxx.LIB**    BLED.EXE      LINK.EXE**   RBBSSUB1.BAS  RBBSUTIL.OBJ
  66. ECHO ' (xx=10/20/30/45) GIVEBK31.OBJ  PC-NET.OBJ   RBBSSUB2.BAS  RBBSML.OBJ
  67. ECHO '                  ANSI17.OBJ    QBARCV6.OBJ  RBBSSUB3.BAS  10-NET.OBJ
  68. ECHO '                  RBBSHS.OBJ    BASNOV.OBJ   RBBSSUB4.BAS  FOSSCOMM.OBJ
  69. ECHO '                                             RBBSSUB5.BAS
  70. IF %2 == IBM2.00 GOTO IBM2
  71. IF %2 == QB1.02 GOTO QBB3
  72. IF %2 == QB2.01 GOTO QBB3
  73. IF %2 == QB3.00 GOTO QBB3
  74. IF %2 == QB4.5 GOTO QBB4
  75. ECHO '  BASCOM.EXE**   GWCOM.OBJ**   LKL%13.DAT  RBBS-VAR.BAS
  76. GOTO BYPASS1
  77. :QBB3
  78. ECHO '  QB.EXE**       GWCOM.OBJ**   LKL%13.DAT  RBBS-VAR.BAS
  79. GOTO BYPASS1
  80. :QBB4
  81. ECHO '  BC.EXE**                     LKL%14.DAT  RBBS-VAR.BAS
  82. GOTO BYPASS1
  83. :IBM2
  84. ECHO '  BASCOM.EXE**   IBMCOM.OBJ**                RBBS-VAR.BAS
  85. :BYPASS1
  86. ECHO '  NOTE:  ** indicates files supplied with the BASIC compiler
  87. ECHO '
  88. ECHO '  IF access to these files is not available from the drive and/or
  89. ECHO '  the DOS subdirectory that you are running this .BAT file out of
  90. ECHO '  hit Ctrl-Break to terminate this batch file.  If access to these
  91. ECHO '  files is available to UPGRADE.BAT ......
  92. pause
  93. ECHO '  The following files from RBBS-MRG.ZIP must be unarchived and put
  94. ECHO '  in the same directory as the above pre-existing files:
  95. ECHO '
  96. ECHO '    R-PC%1.MRG      Note:  The "%1" indicates that these are .MRG
  97. ECHO '    RSB1%1.MRG             files to be applied to the unmodified
  98. ECHO '    RSB2%1.MRG             source code for 17.3
  99. ECHO '    RSB3%1.MRG
  100. ECHO '    RSB4%1.MRG
  101. ECHO '    RSB5%1.MRG      RVAR%1.BAS
  102. ECHO '    CNFG%1.MRG
  103. ECHO '    CSUB%1.MRG      CVAR%1.BAS
  104. ECHO '  If all of the above files are available as indicated above....
  105. pause
  106. ECHO '  The basic sequence of what is about to happen is:
  107. ECHO '
  108. ECHO '        Original 17.3                  %1.MRG file to upgrade
  109. ECHO '         source code     BLED.CFG       to 17.3A
  110. ECHO '               !             !                !
  111. ECHO '              \!/           \!/              \!/
  112. ECHO '             +---------------------------------+
  113. ECHO '             !             BLED                !======+Modified BAS file
  114. ECHO '             +---------------------------------+              !
  115. ECHO '                                                             \!/
  116. ECHO '                                                   +--------------------+
  117. ECHO '                                                   !   BASIC compiler   !
  118. ECHO '                                                   +--------------------+
  119. ECHO '                                                              !
  120. ECHO '                +----------------------+                     \!/
  121. ECHO '                !         LINK         !+===========Modified OBJ file
  122. ECHO '                +----------------------+
  123. ECHO '                            !
  124. ECHO '                           \!/
  125. ECHO '                  Modified EXE file
  126. ECHO '
  127. ECHO ' If you have reviewed this .BAT file and agree to take the sole
  128. ECHO ' responsibility for what is about to happen .....
  129. PAUSE
  130. :TURBO1
  131. CLS
  132. ECHO ON
  133. RENAME RBBS-VAR.BAS RBBS-VAR.OLD
  134. COPY RVAR%1.BAS RBBS-VAR.BAS
  135. BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS  WARNR-PC
  136. BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS WARNSUB1
  137. BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS WARNSUB2
  138. BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS WARNSUB3
  139. BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS WARNSUB4
  140. BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS WARNSUB5
  141. RENAME CNFG-VAR.BAS CNFG-VAR.OLD
  142. COPY CVAR%1.BAS CNFG-VAR.BAS
  143. BLED /B/L CONFIG.BAS   CNFG%1.MRG CNFG%1.BAS WARNCNFG
  144. BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS WARNCSUB
  145. ECHO OFF
  146. :COMPILE1
  147. IF QB1.02 == %2 GOTO QB2MAIN
  148. IF QB2.00 == %2 GOTO QB2MAIN
  149. IF QB2.01 == %2 GOTO QB2MAIN
  150. IF QB3.00 == %2 GOTO QB2MAIN
  151. IF QB4.5 == %2 GOTO QB4MAIN
  152. IF IBM2.00 == %2 GOTO IBMMAIN
  153. ECHO ON
  154. BASCOM R-PC%1.BAS,,NUL,/C:4096/O;
  155. ECHO OFF
  156. GOTO MAINEND
  157. :QB2MAIN
  158. ECHO ON
  159. QB R-PC%1.BAS,/C:4096/O/E/S;
  160. ECHO OFF
  161. GOTO MAINEND
  162. :QB4MAIN
  163. ECHO ON
  164. BC R-PC%1.BAS,,NUL,/O/C:4096/S/E/MBF;
  165. ECHO OFF
  166. GOTO MAINEND
  167. :IBMMAIN
  168. ECHO ON
  169. BASCOM R-PC%1.BAS,,NUL,/C:4096/O/N;
  170. ECHO OFF
  171. :MAINEND
  172. IF TURBO == %3 GOTO TURBO2
  173. ECHO ' If any errors were detected in this compile, terminate this batch job
  174. ECHO ' with Ctrl-Break as something is not correct.  Otherwise .....
  175. pause
  176. :TURBO2
  177. IF QB1.02 == %2 GOTO QB2SUB1
  178. IF QB2.01 == %2 GOTO QB2SUB1
  179. IF QB3.00 == %2 GOTO QB2SUB1
  180. IF QB4.5 == %2 GOTO QB4SUB1
  181. IF IBM2.00 == %2 GOTO IBMSUB1
  182. ECHO ON
  183. BASCOM RSB1%1.BAS,,NUL,/X/O;
  184. ECHO OFF
  185. GOTO SUB1END
  186. :QB2SUB1
  187. ECHO ON
  188. QB RSB1%1.BAS,/X/O;
  189. ECHO OFF
  190. GOTO SUB1END
  191. :QB4SUB1
  192. ECHO ON
  193. BC RSB1%1.BAS,,NUL,/X/O/MBF;
  194. ECHO OFF
  195. GOTO SUB1END
  196. :IBMSUB1
  197. ECHO ON
  198. BASCOM RSB1%1.BAS,,NUL,/X/O/N;
  199. ECHO OFF
  200. :SUB1END
  201. IF TURBO == %3 GOTO TURBO3
  202. ECHO ' If any errors were detected in this compile, terminate this batch job
  203. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  204. pause
  205. :TURBO3
  206. IF QB1.02 == %2 GOTO QB2SUB2
  207. IF QB2.01 == %2 GOTO QB2SUB2
  208. IF QB3.00 == %2 GOTO QB2SUB2
  209. IF QB4.5 == %2 GOTO QB4SUB2
  210. IF IBM2.00 == %2 GOTO IBMSUB2
  211. ECHO ON
  212. BASCOM RSB2%1.BAS,,NUL,/O;
  213. ECHO OFF
  214. GOTO SUB2END
  215. :QB2SUB2
  216. ECHO ON
  217. QB RSB2%1.BAS,/O/E;
  218. ECHO OFF
  219. GOTO SUB2END
  220. :QB4SUB2
  221. ECHO ON
  222. BC RSB2%1.BAS,,NUL,/O/E/MBF;
  223. ECHO OFF
  224. GOTO SUB2END
  225. :IBMSUB2
  226. ECHO ON
  227. BASCOM RSB2%1.BAS,,NUL,/O/N;
  228. ECHO OFF
  229. :SUB2END
  230. IF TURBO == %3 GOTO TURBO4
  231. ECHO ' If any errors were detected in this compile, terminate this batch job
  232. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  233. pause
  234. :TURBO4
  235. IF QB1.02 == %2 GOTO QB2SUB3
  236. IF QB2.01 == %2 GOTO QB2SUB3
  237. IF QB3.00 == %2 GOTO QB2SUB3
  238. IF QB4.5 == %2 GOTO QB4SUB3
  239. IF IBM2.00 == %2 GOTO IBMSUB3
  240. ECHO ON
  241. BASCOM RSB3%1.BAS,,NUL,/O;
  242. ECHO OFF
  243. GOTO SUB3END
  244. :QB2SUB3
  245. ECHO ON
  246. QB RSB3%1.BAS,/O/E;
  247. ECHO OFF
  248. GOTO SUB3END
  249. :QB4SUB3
  250. ECHO ON
  251. BC RSB3%1.BAS,,NUL,/O/E/MBF;
  252. ECHO OFF
  253. GOTO SUB3END
  254. :IBMSUB3
  255. ECHO ON
  256. BASCOM RSB3%1.BAS,,NUL,/O/N;
  257. ECHO OFF
  258. :SUB3END
  259. IF TURBO == %3 GOTO TURBO5
  260. ECHO ' If any errors were detected in this compile, terminate this batch job
  261. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  262. pause
  263. :TURBO5
  264. IF QB1.02 == %2 GOTO QB2SUB4
  265. IF QB2.01 == %2 GOTO QB2SUB4
  266. IF QB3.00 == %2 GOTO QB2SUB4
  267. IF QB4.5 == %2 GOTO QB4SUB4
  268. IF IBM2.00 == %2 GOTO IBMSUB3
  269. ECHO ON
  270. BASCOM RSB4%1.BAS,,NUL,/O;
  271. ECHO OFF
  272. GOTO SUB4END
  273. :QB2SUB4
  274. ECHO ON
  275. QB RSB4%1.BAS,/O/E;
  276. ECHO OFF
  277. GOTO SUB4END
  278. :QB4SUB4
  279. ECHO ON
  280. BC RSB4%1.BAS,,NUL,/O/E/MBF;
  281. ECHO OFF
  282. GOTO SUB4END
  283. :IBMSUB4
  284. ECHO ON
  285. BASCOM RSB4%1.BAS,,NUL,/O/N;
  286. ECHO OFF
  287. :SUB4END
  288. IF TURBO == %3 GOTO TURBO6
  289. ECHO ' If any errors were detected in this compile, terminate this batch job
  290. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  291. pause
  292. :TURBO6
  293. IF QB1.02 == %2 GOTO QB2SUB5
  294. IF QB2.01 == %2 GOTO QB2SUB5
  295. IF QB3.00 == %2 GOTO QB2SUB5
  296. IF QB4.5 == %2 GOTO QB4SUB5
  297. IF IBM2.00 == %2 GOTO IBMSUB5
  298. ECHO ON
  299. BASCOM RSB5%1.BAS,,NUL,/O;
  300. ECHO OFF
  301. GOTO SUB5END
  302. :QB2SUB5
  303. ECHO ON
  304. QB RSB5%1.BAS,/O/E;
  305. ECHO OFF
  306. GOTO SUB5END
  307. :QB4SUB5
  308. ECHO ON
  309. BC RSB5%1.BAS,,NUL,/O/E/MBF;
  310. ECHO OFF
  311. GOTO SUB5END
  312. :IBMSUB5
  313. ECHO ON
  314. BASCOM RSB5%1.BAS,,NUL,/O/N;
  315. ECHO OFF
  316. :SUB5END
  317. IF TURBO == %3 GOTO TURBO7
  318. ECHO ' If any errors were detected in this compile, terminate this batch job
  319. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  320. pause
  321. :TURBO7
  322. IF QB4.5 == %2 GOTO QBLINK
  323. IF IBM2.00 == %2 GOTO IBMLINK1
  324. ECHO ON
  325. LINK @LKL%13.DAT
  326. ECHO OFF
  327. GOTO DELETER
  328. :QBLINK
  329. ECHO ON
  330. LINK @LKL%14.DAT
  331. ECHO OFF
  332. GOTO DELETER
  333. :IBMLINK1
  334. LINK R-PC%1+RSB1%1+RSB2%1+RSB3%1+RSB4%1+RSB5%1+IBMCOM+QBARCV6+ANSI17+XMODEM+RBBSML+BDRIVEC2+PC-NET+10-NET+RBBSDV+RBBSUTIL,,,;
  335. :DELETER
  336. IF TURBO == %3 GOTO TURBO8
  337. ECHO ' If any errors were detected in this Link, terminate this batch job
  338. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  339. pause
  340. :TURBO8
  341. IF QB1.02 == %2 GOTO QB2CNFG
  342. IF QB2.01 == %2 GOTO QB2CNFG
  343. IF QB3.00 == %2 GOTO QB2CNFG
  344. IF QB4.5 == %2 GOTO QB4CNFG
  345. IF IBM2.00 == %2 GOTO IBMCNFG
  346. ECHO ON
  347. BASCOM CNFG%1.BAS,,NUL,/O/E/C:4096/S;
  348. ECHO OFF
  349. GOTO CNFGEND
  350. :QB2CNFG
  351. ECHO ON
  352. QB CNFG%1.BAS,/O/E/C:4096/S;
  353. ECHO OFF
  354. GOTO CNFGEND
  355. :QB4CNFG
  356. ECHO ON
  357. BC CNFG%1.BAS,,NUL,/O/E/C:4096/S;
  358. ECHO OFF
  359. GOTO CNFGEND
  360. :IBMCNFG
  361. ECHO ON
  362. BASCOM CNFG%1.BAS,,NUL,/O/E/C:4096/S;
  363. ECHO OFF
  364. :CNFGEND
  365. IF TURBO == %3 GOTO TURBO9
  366. ECHO ' If any errors were detected in this compile, terminate this batch job
  367. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  368. pause
  369. :TURBO9
  370. IF QB1.02 == %2 GOTO QB2CSUB
  371. IF QB2.01 == %2 GOTO QB2CSUB
  372. IF QB3.00 == %2 GOTO QB2CSUB
  373. IF QB4.5 == %2 GOTO QB4CSUB
  374. IF IBM2.00 == %2 GOTO IBMCSUB
  375. ECHO ON
  376. BASCOM CSUB%1.BAS,,NUL,/O/E/C:4096/S;
  377. ECHO OFF
  378. GOTO CSUBEND
  379. :QB2CSUB
  380. ECHO ON
  381. QB CSUB%1.BAS,/O/E/C:4096/S;
  382. ECHO OFF
  383. GOTO CSUBEND
  384. :QB4CSUB
  385. ECHO ON
  386. BC CSUB%1.BAS,,NUL,/O/E/C:4096;
  387. ECHO OFF
  388. GOTO CSUBEND
  389. :IBMCSUB
  390. ECHO ON
  391. BASCOM CSUB%1.BAS,,NUL,/O/E/C:4096/S;
  392. ECHO OFF
  393. :CSUBEND
  394. IF TURBO == %3 GOTO TURB10
  395. ECHO ' If any errors were detected in this compile, terminate this batch job
  396. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  397. pause
  398. :TURBO10
  399. ECHO OFF
  400. IF QB4.5 == %2 GOTO CQB45LINK
  401. IF IBM2.00 == %2 GOTO CIBMLINK
  402. ECHO ON
  403. LINK CNFG%1+GWCOM+CSUB%1+RBBSUTIL+FOSSCOMM,,,;
  404. ECHO OFF
  405. GOTO DELETER1
  406. :CQB45LINK
  407. ECHO ON
  408. LINK CNFG%1+CSUB%1+RBBSUTIL+FOSSCOMM,,,;
  409. ECHO OFF
  410. GOTO DELETER1
  411. :CIBMLINK
  412. ECHO ON
  413. LINK CNFG%1+IBMCOM+CSUB%1+RBBSUTIL+FOSSCOMM,,,;
  414. :DELETER1
  415. CLS
  416. ECHO OFF
  417. ECHO ' Before using anything created by this .BAT file, make backup copies
  418. ECHO ' of all files that you can not easily re-create.
  419. ECHO ON
  420. :END
  421.